perm filename TES.PAS[P,JRA] blob sn#404716 filedate 1978-12-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PROGRAM PALINDROMES(OUTPUT)
C00003 ENDMK
CāŠ—;
PROGRAM PALINDROMES(OUTPUT);
VAR I,J,L,N,R,S:INTEGER;
P:BOOLEAN;
D:ARRAY[1..10]OF INTEGER;
BEGIN N:=0; WRITELN(CLOCK);
REPEAT N:=N+1; S:=N*N;L:=0;
   REPEAT L:=L+1;R:=S DIV 10;
D[L] :=S-10*R;S:=R;
UNTIL S=0;
I:=1; J:=L;
REPEAT P:=D[I]=D[J];
I:=I+1;J:=J-1
UNTIL (I>=J) OR NOT P;
IF P THEN WRITELN(N,N*N)
UNTIL N=1000;
WRITELN(CLOCK);
END.